home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / AVI_WI.ZIP / AVI-1.FRM (.txt) < prev    next >
Visual Basic Form  |  1997-09-14  |  8KB  |  265 lines

  1. Form1
  2. .AVI in Window Demo
  3. Form1
  4. Command5
  5. Sound
  6. Command4
  7. Command3
  8. Command2
  9. Pause
  10. Command1
  11. File1
  12. *.avi
  13. Drive1
  14. Picture1
  15. Label1
  16. Label10
  17. about
  18. About...
  19. about1
  20. About .AVI File Viewer Demo 
  21. Dir1_Change!
  22. Form1
  23.     ListIndex3
  24. File1
  25. PathQ
  26. Drive1_Change
  27. Drive1
  28. File1_Click
  29. TheFile
  30. EnabledN
  31.     Form_Load
  32. MMControl1_Done@
  33. NotifyCode
  34. MMControl1
  35. Notify
  36.     Shareable
  37. DeviceType%
  38. Form_UnloadQ
  39. Cancelh
  40. Action
  41. mciExecute
  42. MMControl1_PlayClick
  43. MMControl1_PauseClick1
  44. MMControl1_StopClick6
  45. Command
  46. Picture1_Click
  47. Picture1_GotFocus
  48.     HwndFrame
  49. GetFocus 
  50. WaitForEventsToFinish
  51. Picture1[
  52. hWndDisplay
  53. MMControl1_PlayGotFocus
  54.     PlayClick
  55. Form_KeyPress
  56. KeyAscii]
  57. Form_MouseMove
  58. Button
  59. Shift
  60. Picture
  61. icons|
  62. arrow1
  63. arrows
  64. arw02dn
  65. none_ClickV
  66. Dir1_GotFocus
  67. Picture2`
  68. File1_GotFocus
  69. File1_MouseUp
  70. File1_LostFocus
  71. UsesWindows
  72. palse<
  73. FileName;
  74. Form_GotFocus
  75. DisplayType
  76. MMCControl1
  77. MMControl1_PlayCompleted*
  78.     ErrorCode
  79. MMControl1_StopGotFocus
  80. Drive1_GotFocusq
  81. Picture2_ClickH
  82. Picture2_GotFocus0
  83. HwndFrameMMControl1m
  84. Begin
  85. AVIFile
  86. WaitForEventw
  87. MMControl1_NextClick
  88. Panel3D1_DragDrop
  89. SourceN
  90. Control
  91. Frame3D1_DragDrop
  92. about_Click
  93. about1_Click
  94. CRLF)
  95. about2_Clickw
  96. generalg
  97.     procedure
  98. displaying/
  99. videos
  100. window
  101. PlayEnableD
  102. PlayEnabled
  103. PauseEnable
  104. StopEnabled
  105. PauseEnabled
  106. Picture1_KeyPress
  107. AVIFilename
  108. InstHScroll1_Change
  109. mciCommand(
  110. Command1_Click
  111. Label3
  112. CaptionY
  113. Label5
  114.     mciReturn~
  115. mciReturnLength
  116. mciErrString
  117. mciErrLengthq
  118. Text2
  119. Device
  120. Text1}
  121. mcihWnd
  122. mciError
  123. mciSendString
  124. Success
  125. mciGetErrorString]    
  126. List1
  127. Combo1
  128. Combo1_Change
  129. Label8I
  130. Command2_Click
  131. List1_Clicke
  132. Combo1_Click
  133. AVIVideo
  134. Command3_Click
  135. mciFile
  136.     mciDevice
  137. File1_DblClick
  138. Command4_Click
  139. Sound
  140. Command5_Click}    
  141. Command6_Click
  142. Text3
  143.     AliasName
  144. handle
  145. DisplayFrame/
  146. GroupPush3D1_Click
  147. ValueE
  148. GroupPush3D2_Click[
  149. GroupPush3D5_Click
  150. GroupPush3D3_Click
  151. falseEnd
  152. GroupPush3d3
  153. GroupPush3D1
  154. GroupPush3D4_Click
  155. Label10
  156. mciFileName
  157. GroupPush3d5
  158. Audio
  159. SndFlag
  160. Label1_Click
  161. Label2_Click-    
  162. Label3_Click=    
  163. Label6_ClickM    
  164. Label7_Click
  165. Label5_Clickm    
  166. Text1_Change
  167. Text3_Change
  168. Command7_Click
  169. video
  170. Label10_Click
  171. Enable
  172. Paused
  173.     falseElse
  174. SoundStatus
  175. Label1
  176. Command1
  177. Command2
  178.     BackColor
  179.     FrameHwnd
  180. HwndFr
  181. about1_Click
  182. Written by Rolf Mathison
  183. Compuserve 76376,3224
  184. This program demonstrates
  185. How to play .AVI files in a window
  186. (Print out the form text & code for details)
  187. Command1_Click
  188.  Close any open MCI devices
  189. Close all
  190.  Open the file with an alias (VID)
  191. open 
  192.  alias 
  193.  Set the Focus to window where you want the video to play.
  194.  Picture1 GotFocus will return window "handle #" (hWnd) as
  195.  HwndFrame
  196.  We have to put a delay here to allow for timing, or we may
  197.  get the wrong hWnd #a
  198.  Convert to string and set the window to use
  199. window 
  200.  handle 
  201.  Show the filename and mode then play the videon
  202. Playing...   
  203. Play VID
  204. Command2_Click
  205.  If we're not already paused, use the "Pause" commandw
  206. Pause 
  207. Paused...    
  208.  If we're paused use the "Play" command to resumem
  209. Play 
  210. Playing...   
  211.  toggle the status of the "Paused" flag
  212. Command3_Click
  213.  Single step video forward by "1" framen
  214. step 
  215.  by 1
  216.  Change the mode label, SetFocus back to "Pause"
  217. Single Step...
  218. Command4_Click
  219.  Stop the video, close the MCI device 
  220. Close all
  221.  Clear Filename, show mode
  222. Done...      
  223.  SetFocus to Picture1 and blank out the videos
  224.  SetFocus back for the next file
  225. Command5_Click
  226.  Toggle the sound on and off
  227. setaudio 
  228. Sound Off...  
  229. setaudio 
  230. Sound On...  
  231.  toggle the status of the "SoundStatus" flag
  232. Dir1_Change
  233.  Get the Directory
  234. Drive1_Change
  235.  Get the disk drive
  236. File1_Click
  237.  Get the MCI filename
  238.  SetFocus to "Play""
  239. File1_DblClick
  240.  This just is a shortcut, it will start playing the videog
  241.  without pressing the "Play" key
  242.  Close any open MCI devices 
  243. Close all
  244.  Open up the file, using an alias (VID)l
  245. open 
  246.  alias 
  247.  Set focus to window where video is to play 
  248.  We have to put a delay here to allow for timing, or we may
  249.  get the wrong hWnd #a
  250.  Picture1 GotFocus returns window "handle#" as HwndFrame
  251.  Convert it to a string and set the window to use
  252. window 
  253.  handle 
  254.  Label the filename and mode
  255. Playing...   
  256.  Play the videon
  257. play 
  258. File1_GotFocus
  259. Form_Unload
  260.  Close all files on exit
  261. Close all
  262. Picture1_GotFocus
  263.  Get the hWnd "handle number" for the Picture1 windoww
  264.  HwndFrame & GetFocus() are defined in Global.basn
  265.